home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
iqb9107.zip
/
HOTKEY.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-27
|
315b
|
16 lines
CONST FALSE = 0, TRUE = NOT FALSE
ON KEY(15) GOSUB RightShiftHandler
KEY 15, CHR$(1) + CHR$(&H36)
KEY(15) ON
Done% = FALSE
Here:
PRINT "WARNING! Hand off that knob!"
IF NOT Done% GOTO Here
END
RightShiftHandler:
PRINT "You pressed the right shift knob!"
Done% = TRUE
RETURN